| Filename | (eval 1237)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 4 statements in 4µs |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | 1 | 300ns | my $context = shift || die "template sub called without context\n"; | ||
| 3 | 1 | 3µs | 1 | 3µs | my $stash = $context->stash; # spent 3µs making 1 call to Template::Context::stash |
| 4 | 1 | 300ns | my $output = ''; | ||
| 5 | 1 | 100ns | my $_tt_error; | ||
| 6 | |||||
| 7 | eval { BLOCK: { | ||||
| 8 | #line 1 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 9 | # USE | ||||
| 10 | $stash->set('Koha', | ||||
| 11 | $context->plugin('Koha')); | ||||
| 12 | $output .= "\n"; | ||||
| 13 | #line 2 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 14 | $output .= $context->include('doc-head-open.inc'); | ||||
| 15 | $output .= "\n<title>Koha staff client</title>\n<link rel=\"stylesheet\" type=\"text/css\" href=\""; | ||||
| 16 | #line 4 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 17 | $output .= $stash->get('themelang'); | ||||
| 18 | $output .= "/css/mainpage.css\" />\n"; | ||||
| 19 | #line 5 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 20 | $output .= $context->include('doc-head-close.inc'); | ||||
| 21 | $output .= "\n<style type=\"text/css\"> </style>\n\n</head>\n<body id=\"main_intranet-main\" class=\"main\">\n"; | ||||
| 22 | #line 10 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 23 | $output .= $context->include('header.inc'); | ||||
| 24 | $output .= "\n"; | ||||
| 25 | #line 11 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 26 | $output .= $context->include('home-search.inc'); | ||||
| 27 | $output .= "\n\n<div id=\"breadcrumbs\" >Home</div>\n\n\n<div id=\"doc3\" class=\"yui-t3\">\n <div id=\"bd\" role=\"main\">\n <div id=\"yui-main\">\n <div class=\"yui-b\"><div class=\"yui-g\">\n "; | ||||
| 28 | #line 25 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 29 | if ($stash->get('adminWarning')) { | ||||
| 30 | $output .= "\n <div id=\"adminwarning\" class=\"dialog alert\">\n <p><strong>Warning:</strong> You're logged in with the database administrator account. This is a bad idea, and you are likely to encounter problems.</p>\n <p>You should <a href=\"/cgi-bin/koha/members/members-home.pl\">create a patron</a> to use when administering Koha and give it superlibrarian permissions.</p>\n </div>\n "; | ||||
| 31 | } | ||||
| 32 | |||||
| 33 | $output .= "\n <div class=\"yui-u first\">\n\n <div id=\"area-list-left\">\n <ul class=\"biglinks-list\">\n "; | ||||
| 34 | #line 34 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 35 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 36 | $output .= "\n <li>\n <a class=\"icon_general icon_circulation\" href=\"/cgi-bin/koha/circ/circulation-home.pl\">Circulation</a>\n </li>\n "; | ||||
| 37 | } | ||||
| 38 | |||||
| 39 | $output .= "\n\n "; | ||||
| 40 | #line 40 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 41 | if (($stash->get('CAN_user_borrowers'))) { | ||||
| 42 | $output .= "\n <li>\n <a class=\"icon_general icon_patrons\" href=\"/cgi-bin/koha/members/members-home.pl\">Patrons</a>\n </li>\n "; | ||||
| 43 | } | ||||
| 44 | |||||
| 45 | $output .= "\n\n "; | ||||
| 46 | #line 46 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 47 | if (($stash->get('CAN_user_catalogue'))) { | ||||
| 48 | $output .= "\n <li>\n <a class=\"icon_general icon_search\" href=\"/cgi-bin/koha/catalogue/search.pl\">Advanced search</a>\n </li>\n "; | ||||
| 49 | } | ||||
| 50 | |||||
| 51 | $output .= "\n\n <li>\n <a class=\"icon_general icon_lists\" href=\"/cgi-bin/koha/virtualshelves/shelves.pl\">Lists</a>\n </li>\n\n "; | ||||
| 52 | #line 56 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 53 | if (($stash->get('UseCourseReserves'))) { | ||||
| 54 | $output .= "\n <li>\n <a class=\"icon_general icon_course_reserves\" href=\"/cgi-bin/koha/course_reserves/course-reserves.pl\">Course reserves</a>\n </li>\n "; | ||||
| 55 | } | ||||
| 56 | |||||
| 57 | $output .= "\n\n "; | ||||
| 58 | #line 62 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 59 | if (($stash->get('CAN_user_editcatalogue_edit_catalogue') || $stash->get('CAN_user_editcatalogue_edit_items'))) { | ||||
| 60 | $output .= "\n <li>\n <a class=\"icon_general icon_cataloging\" href=\"/cgi-bin/koha/cataloguing/addbooks.pl\">Cataloging</a>\n </li>\n "; | ||||
| 61 | } | ||||
| 62 | |||||
| 63 | $output .= "\n <li>\n <a class=\"icon_general icon_authorities\" href=\"/cgi-bin/koha/authorities/authorities-home.pl\">Authorities</a>\n </li>\n </ul>\n </div><!-- /area-list-left -->\n </div><!-- /yui-u first -->\n <div class=\"yui-u\">\n <div id=\"area-list-right\">\n <ul class=\"biglinks-list\">\n "; | ||||
| 64 | #line 77 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 65 | if (($stash->get('CAN_user_serials'))) { | ||||
| 66 | $output .= "\n <li>\n <a class=\"icon_general icon_serials\" href=\"/cgi-bin/koha/serials/serials-home.pl\">Serials</a>\n <span class=\"biglink\"></span>\n </li>\n "; | ||||
| 67 | } | ||||
| 68 | |||||
| 69 | $output .= "\n\n "; | ||||
| 70 | #line 84 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 71 | if (($stash->get('CAN_user_acquisition'))) { | ||||
| 72 | $output .= "\n <li>\n <a class=\"icon_general icon_acquisitions\" href=\"/cgi-bin/koha/acqui/acqui-home.pl\">Acquisitions</a>\n <span class=\"biglink\"></span>\n </li>\n "; | ||||
| 73 | } | ||||
| 74 | |||||
| 75 | $output .= "\n\n "; | ||||
| 76 | #line 90 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 77 | if (($stash->get('CAN_user_reports'))) { | ||||
| 78 | $output .= "\n <li>\n <a class=\"icon_general icon_reports\" href=\"/cgi-bin/koha/reports/reports-home.pl\">Reports</a>\n </li>\n "; | ||||
| 79 | } | ||||
| 80 | |||||
| 81 | $output .= "\n\n\n "; | ||||
| 82 | #line 97 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 83 | if (($stash->get('CAN_user_tools'))) { | ||||
| 84 | $output .= "\n <li>\n <a class=\"icon_general icon_tools\" href=\"/cgi-bin/koha/tools/tools-home.pl\">Tools</a>\n </li>\n "; | ||||
| 85 | } | ||||
| 86 | |||||
| 87 | $output .= "\n\n "; | ||||
| 88 | #line 103 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 89 | if (($stash->get('CAN_user_parameters'))) { | ||||
| 90 | $output .= "\n <li>\n <a class=\"icon_general icon_administration\" href=\"/cgi-bin/koha/admin/admin-home.pl\">Koha administration</a>\n </li>\n "; | ||||
| 91 | } | ||||
| 92 | |||||
| 93 | $output .= "\n <li>\n <a class=\"icon_general icon_koha\" href=\"/cgi-bin/koha/about.pl\">About Koha</a>\n </li>\n </ul>\n </div><!-- /area-list-right -->\n </div><!-- /yui-u -->\n</div><!-- /yui-g -->\n<div class=\"yui-g\">\n "; | ||||
| 94 | #line 158 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 95 | if ((($stash->get('CAN_user_tools_moderate_comments') && $stash->get('pendingcomments')) || ($stash->get('CAN_user_tools_moderate_tags') && $stash->get('pendingtags')) || ($stash->get('CAN_user_borrowers') && $stash->get('pending_borrower_modifications')) || ($stash->get('CAN_user_acquisition') && $stash->get('pendingsuggestions')) || ($stash->get('CAN_user_borrowers') && $stash->get('pending_discharge_requests')))) { | ||||
| 96 | $output .= "\n <div id=\"area-pending\">\n "; | ||||
| 97 | #line 125 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 98 | if (($stash->get('CAN_user_acquisition') && $stash->get('pendingsuggestions'))) { | ||||
| 99 | $output .= "\n <div class=\"pending-info\" id=\"suggestions_pending\">\n\n <a href=\"/cgi-bin/koha/suggestion/suggestion.pl#ASKED\">Suggestions pending approval</a>:\n <span class=\"pending-number-link\">"; | ||||
| 100 | #line 123 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 101 | $output .= $stash->get('pendingsuggestions'); | ||||
| 102 | $output .= "</span>\n </div>\n "; | ||||
| 103 | } | ||||
| 104 | |||||
| 105 | $output .= "\n\n "; | ||||
| 106 | #line 132 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 107 | if (($stash->get('CAN_user_tools_moderate_comments') && $stash->get('pendingcomments'))) { | ||||
| 108 | $output .= "\n <div class=\"pending-info\" id=\"comments_pending\">\n <a href=\"/cgi-bin/koha/reviews/reviewswaiting.pl\">Comments pending approval</a>:\n <span class=\"pending-number-link\">"; | ||||
| 109 | #line 130 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 110 | $output .= $stash->get('pendingcomments'); | ||||
| 111 | $output .= "</span>\n </div>\n "; | ||||
| 112 | } | ||||
| 113 | |||||
| 114 | $output .= "\n\n "; | ||||
| 115 | #line 139 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 116 | if (($stash->get('CAN_user_tools_moderate_tags') && $stash->get('pendingtags'))) { | ||||
| 117 | $output .= "\n <div class=\"pending-info\" id=\"tags_pending\">\n <a href=\"/cgi-bin/koha/tags/review.pl\">Tags pending approval</a>:\n <span class=\"pending-number-link\">"; | ||||
| 118 | #line 137 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 119 | $output .= $stash->get('pendingtags'); | ||||
| 120 | $output .= "</span>\n </div>\n "; | ||||
| 121 | } | ||||
| 122 | |||||
| 123 | $output .= "\n\n\n "; | ||||
| 124 | #line 147 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 125 | if (($stash->get('CAN_user_borrowers') && $stash->get('pending_borrower_modifications'))) { | ||||
| 126 | $output .= "\n <div class=\"pending-info\" id=\"patron_updates_pending\">\n <a href=\"/cgi-bin/koha/members/members-update.pl\">Patrons requesting modifications</a>:\n <span class=\"pending-number-link\">"; | ||||
| 127 | #line 145 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 128 | $output .= $stash->get('pending_borrower_modifications'); | ||||
| 129 | $output .= "</span>\n </div>\n "; | ||||
| 130 | } | ||||
| 131 | |||||
| 132 | $output .= "\n\n "; | ||||
| 133 | #line 154 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 134 | if ($stash->get('CAN_user_borrowers') && $stash->get('pending_discharge_requests')) { | ||||
| 135 | $output .= "\n <div class=\"pending-info\" id=\"patron_discharges_pending\">\n <a href=\"/cgi-bin/koha/members/discharges.pl\">Discharge requests pending</a>:\n <span class=\"pending-number-link\">"; | ||||
| 136 | #line 152 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 137 | $output .= $stash->get('pending_discharge_requests'); | ||||
| 138 | $output .= "</span>\n </div>\n "; | ||||
| 139 | } | ||||
| 140 | |||||
| 141 | $output .= "\n\n </div>\n\n "; | ||||
| 142 | } | ||||
| 143 | |||||
| 144 | $output .= "\n\n</div>\n "; | ||||
| 145 | #line 167 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 146 | if (($stash->get('IntranetmainUserblock'))) { | ||||
| 147 | $output .= "\n <div class=\"yui-g\" id=\"area-userblock\">\n <div class=\"user-info\">\n "; | ||||
| 148 | #line 164 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 149 | $output .= $stash->get('IntranetmainUserblock'); | ||||
| 150 | $output .= "\n </div>\n </div>\n "; | ||||
| 151 | } | ||||
| 152 | |||||
| 153 | $output .= "\n</div>\n </div>\n <div class=\"yui-b\"><!-- YOUR NAVIGATION GOES HERE -->\n "; | ||||
| 154 | #line 188 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 155 | if (($stash->get('koha_news_count'))) { | ||||
| 156 | $output .= "\n <div id=\"area-news\">\n <h3><span=\"news_title\">News</span></h3>\n "; | ||||
| 157 | #line 174 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 158 | $stash->set('newsdisp', $stash->get(['Koha', 0, 'Preference', [ 'NewsAuthorDisplay' ]])); | ||||
| 159 | $output .= "\n "; | ||||
| 160 | #line 186 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 161 | |||||
| 162 | # FOREACH | ||||
| 163 | do { | ||||
| 164 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 165 | my $_tt_list = $stash->get('koha_news'); | ||||
| 166 | |||||
| 167 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 168 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 169 | || die $Template::Config::ERROR, "\n"; | ||||
| 170 | } | ||||
| 171 | |||||
| 172 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 173 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 174 | $stash->set('loop', $_tt_list); | ||||
| 175 | eval { | ||||
| 176 | FOR1: while (! $_tt_error) { | ||||
| 177 | $stash->{'koha_new'} = $_tt_value; | ||||
| 178 | $output .= "\n <div class=\"newsitem\" id=\"news"; | ||||
| 179 | #line 176 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 180 | $output .= $stash->get(['koha_new', 0, 'idnew', 0]); | ||||
| 181 | $output .= "\"><h4>"; | ||||
| 182 | #line 176 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 183 | $output .= $stash->get(['koha_new', 0, 'title', 0]); | ||||
| 184 | $output .= "</h4>\n <p>"; | ||||
| 185 | #line 177 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 186 | $output .= $stash->get(['koha_new', 0, 'new', 0]); | ||||
| 187 | $output .= "</p>\n <p class=\"newsfooter\"> Posted on "; | ||||
| 188 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 189 | $output .= $stash->get(['koha_new', 0, 'newdate', 0]); | ||||
| 190 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 191 | if ((($stash->get('newsdisp') eq 'staff' || $stash->get('newsdisp') eq 'both') && $stash->get(['koha_new', 0, 'borrowernumber', 0]))) { | ||||
| 192 | $output .= " by <span class=\"newsauthor_title\">"; | ||||
| 193 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 194 | $output .= $stash->get(['koha_new', 0, 'author_title', 0]); | ||||
| 195 | $output .= " </span>"; | ||||
| 196 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 197 | $output .= $stash->get(['koha_new', 0, 'author_firstname', 0]); | ||||
| 198 | $output .= " "; | ||||
| 199 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 200 | $output .= $stash->get(['koha_new', 0, 'author_surname', 0]); | ||||
| 201 | $output .= "<br />"; | ||||
| 202 | } | ||||
| 203 | |||||
| 204 | $output .= "\n "; | ||||
| 205 | #line 183 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 206 | if (($stash->get('CAN_user_tools'))) { | ||||
| 207 | $output .= "\n <a href=\"/cgi-bin/koha/tools/koha-news.pl?op=add_form&id="; | ||||
| 208 | #line 180 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 209 | $output .= $stash->get(['koha_new', 0, 'idnew', 0]); | ||||
| 210 | $output .= "\">Edit</a>\n | <a href=\"/cgi-bin/koha/tools/koha-news.pl?op=del&ids="; | ||||
| 211 | #line 181 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 212 | $output .= $stash->get(['koha_new', 0, 'idnew', 0]); | ||||
| 213 | $output .= "\">Delete</a>\n | <a href=\"/cgi-bin/koha/tools/koha-news.pl?op=add_form\">New</a>\n "; | ||||
| 214 | } | ||||
| 215 | |||||
| 216 | $output .= "\n </p>\n </div>\n ";; | ||||
| 217 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 218 | } | ||||
| 219 | }; | ||||
| 220 | $stash->set('loop', $_tt_oldloop); | ||||
| 221 | die $@ if $@; | ||||
| 222 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 223 | die $_tt_error if $_tt_error; | ||||
| 224 | }; | ||||
| 225 | |||||
| 226 | $output .= "\n </div><!-- /koha-news -->\n "; | ||||
| 227 | } | ||||
| 228 | |||||
| 229 | $output .= "\n </div>\n </div>\n</div>\n\n<!-- the main div is closed in intranet-bottom.inc -->\n"; | ||||
| 230 | #line 194 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
| 231 | $output .= $context->include('intranet-bottom.inc'); | ||||
| 232 | $output .= "\n"; | ||||
| 233 | } }; | ||||
| 234 | if ($@) { | ||||
| 235 | $_tt_error = $context->catch($@, \$output); | ||||
| 236 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 237 | } | ||||
| 238 | |||||
| 239 | return $output; | ||||
| 240 | } | ||||
| 241 | |||||
| 242 | ; |